Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/pass.fm

Text File | 1993-07-16 | 10KB | 2,159 lines

(standard0 list-fns abs-syntx)
10
3733
(name compiler-pass-function direct-superclasses direct-slot-descriptions pre-functions initfunction post-functions metaclass-hypotheses direct-initargs lambda-list method-class pass syntax thang signature argtype 2 function subcomponents (syntax) 1 methods domain "** No explicit method: ~a~%" (subcomponents post-pass pre-pass add-post-function add-pre-function make-compiler-pass) ((strip (union (import standard0) (import list-fns) (import abs-syntx))) subcomponents post-pass pre-pass add-post-function add-pre-function make-compiler-pass) pass)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 160 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 27 0
46
1
(boot . make-installed-module)
34
2
36
0 0 90 0
5
0 0 0 0
8
3
4
0 0 25 0
5
0 0 28 0
3
0
39
8
0
5
0 0 29 0
3
0
39
28
1
5
0 0 30 0
3
0
39
28
1
5
0 0 31 0
3
0
39
28
1
5
0 0 32 0
3
0
39
28
1
5
0 0 33 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 26 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 0 204 0
1
(init . make)
1
(class-names . <generic-class>)
4
0 0 1 0
3
0
39
9
4
0 0 2 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(class-names . <generic-function>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
36
0 13 125 0
8
10
40
0
3
0
39
29
18
3
0
39
9
4
0 0 1 0
3
0
39
9
4
0 0 7 0
3
0
39
29
4
0 0 6 0
3
0
39
29
36
0 13 76 0
8
12
40
0
3
0
39
29
18
3
0
39
29
18
3
0
39
29
4
0 0 8 0
3
0
39
29
3
0
3
0
39
29
4
0 0 9 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 34 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 34 0
4
0 0 7 0
11
34
2
7
0 0 35 0
36
0 0 66 0
36
0 0 26 0
1
(init . setter)
1
(init . setter)
10
33
1
4
0 0 35 0
36
0 0 27 0
1
(telos1 . find-slot-writer)
4
0 0 34 0
4
0 0 7 0
11
34
2
11
33
2
18
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 34 0
4
0 0 5 0
11
34
2
7
0 0 36 0
36
0 0 66 0
36
0 0 26 0
1
(init . setter)
1
(init . setter)
10
33
1
4
0 0 36 0
36
0 0 27 0
1
(telos1 . find-slot-writer)
4
0 0 34 0
4
0 0 5 0
11
34
2
11
33
2
18
36
0 12 3 0
11
4
0 0 12 0
5
0 0 0 0
39
51
3
7
0 0 37 0
36
0 11 186 0
11
4
0 0 12 0
6
1
39
51
1
7
0 0 33 0
36
0 11 116 0
11
4
0 0 12 0
6
2
39
51
2
7
0 0 32 0
36
0 11 46 0
11
4
0 0 12 0
6
3
39
51
2
7
0 0 31 0
36
0 0 146 0
1
(init . add-method)
1
(standard0 . initialize-instance)
36
0 0 120 0
1
(init . make)
36
0 0 26 0
1
(init . generic-method-class)
1
(standard0 . initialize-instance)
10
34
1
4
0 0 15 0
3
0
39
9
4
0 0 34 0
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 9 128 0
8
12
40
2
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 9 36 0
11
4
0 0 12 0
6
4
39
51
3
7
0 0 30 0
36
0 8 200 0
11
4
0 0 12 0
6
5
39
51
3
7
0 0 29 0
36
0 0 143 0
1
(init . make)
1
(class-names . <generic-function>)
4
0 0 1 0
3
0
39
9
4
0 0 19 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 20 0
3
0
39
29
4
0 0 11 0
3
0
39
29
1
(class-names . <method>)
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 22 0
3
0
39
29
3
0
3
0
39
29
4
0 0 23 0
3
0
39
29
1
(class-names . <object>)
3
0
39
3
0
39
29
18
11
34
-2
7
0 0 28 0
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . leaf-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 7 175 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . condition-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 6 230 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . lambda-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 6 77 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . applic-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 5 162 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . block-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 4 240 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . sequence)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 4 97 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . assignment-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 3 175 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . local-definition)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 3 22 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . and-decl)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 2 135 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . rec-decl)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 1 238 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . module-block)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 1 85 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . syntax-obj)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 0 168 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 127 0
1
(init . add-method)
4
0 0 28 0
36
0 0 105 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 28 0
10
34
1
4
0 0 15 0
3
0
39
9
1
(abs-syntx . special-term)
3
0
39
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 21 0
3
0
39
29
4
0 0 18 0
3
0
39
29
36
0 0 25 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
17
2
3
1
37
18
1
(abs-syntx . special-term-objects)
9
13
3
33
1
36
0 0 40 0
1
(extras0 . format)
3
1
4
0 0 24 0
1
(classes . class-of)
8
7
62
1
3
0
39
12
34
-3
17
3
3
0
37
36
0 0 19 0
1
(abs-syntx . module-body)
8
4
10
33
1
3
0
39
15
3
37
36
0 0 19 0
1
(abs-syntx . rec-decl-decl)
8
4
10
33
1
3
0
39
15
3
37
18
1
(abs-syntx . and-decl-decls)
9
13
3
33
1
36
0 0 19 0
1
(abs-syntx . defn-body)
8
4
10
33
1
3
0
39
15
3
37
36
0 0 19 0
1
(abs-syntx . assign-var)
8
4
10
33
1
3
0
39
9
36
0 0 19 0
1
(abs-syntx . assign-body)
8
6
10
33
1
3
0
39
29
18
15
3
37
18
1
(abs-syntx . sequence-content)
9
13
3
33
1
36
0 0 19 0
1
(abs-syntx . block-decl)
8
4
10
33
1
3
0
39
9
36
0 0 19 0
1
(abs-syntx . block-body)
8
6
10
33
1
3
0
39
29
18
15
3
37
36
0 0 19 0
1
(abs-syntx . applic-fun)
8
4
10
33
1
36
0 0 19 0
1
(abs-syntx . applic-args)
8
5
10
33
1
14
4
2
39
37
36
0 0 19 0
1
(abs-syntx . lambda-body)
8
4
10
33
1
3
0
39
15
3
37
36
0 0 19 0
1
(abs-syntx . cond-test)
8
4
10
33
1
3
0
39
9
36
0 0 19 0
1
(abs-syntx . cond-t-part)
8
6
10
33
1
3
0
39
29
36
0 0 19 0
1
(abs-syntx . cond-f-part)
8
6
10
33
1
3
0
39
29
18
15
3
37
17
2
3
0
37
22
2
11
20
0
0
10
20
0
1
1
(init . mapc)
36
0 0 34 0
12
40
1
36
0 0 15 0
4
0 0 36 0
8
8
10
33
1
3
0
12
14
9
4
9
13
5
34
-3
10
10
19
0
0
11
19
0
1
11
14
6
3
9
13
4
33
2
22
2
11
20
0
0
10
20
0
1
1
(init . mapc)
36
0 0 34 0
12
40
1
36
0 0 15 0
4
0 0 36 0
8
8
10
33
1
3
0
12
14
9
4
9
13
5
34
-3
10
10
19
0
0
11
19
0
1
11
14
6
3
9
13
4
33
2
22
1
36
0 0 15 0
8
5
27
8
5
8
5
11
35
2
10
16
20
0
0
18
36
0 0 123 0
1
(init . add-method)
12
19
0
0
36
0 0 102 0
1
(standard0 . make-instance)
36
0 0 22 0
1
(standard0 . generic-function-method-class)
8
10
19
0
0
10
33
1
4
0 0 15 0
1
(abs-syntx . syntax-obj)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
4
0 0 18 0
3
0
9
32
0 0 11 0
9
31
0 0 14 0
36
0 0 26 0
8
14
40
2
15
2
8
5
33
5
11
33
2
18
9
19
0
0
15
4
37
22
1
10
20
0
0
36
0 0 28 0
4
0 0 30 0
12
19
1
0
8
6
8
5
19
0
0
12
26
31
0 0 254 1
18
36
0 0 43 0
1
(init . mapcar)
36
0 0 62 0
8
5
40
1
36
0 0 15 0
4
0 0 28 0
8
9
10
33
1
3
0
12
34
-3
36
0 0 29 0
4
0 0 29 0
8
4
19
1
0
8
7
8
6
19
0
0
12
26
31
0 1 142 1
18
15
4
37
9
19
1
0
11
11
19
0
0
11
14
6
3
9
13
4
33
2
36
0 0 22 0
1
(init . setter)
4
0 0 35 0
10
33
1
12
12
36
0 0 15 0
4
0 0 35 0
8
4
10
33
1
39
11
14
7
3
9
13
4
33
2
36
0 0 22 0
1
(init . setter)
4
0 0 36 0
10
33
1
12
12
36
0 0 15 0
4
0 0 36 0
8
4
10
33
1
39
11
14
7
3
9
13
4
33
2
4
0 0 37 0
11
4
0 0 13 0
3
0
39
9
4
0 0 14 0
3
0
39
29
18
1
(class-names . <method>)
12
14
7
4
9
13
5
18
3
0
31
0 0 5 0
1
(init . make)
4
0 0 34 0
4
0 0 1 0
3
0
39
9
8
7
3
0
39
29
4
0 0 10 0
3
0
39
29
8
6
3
0
39
29
4
0 0 11 0
3
0
39
29
8
5
3
0
39
29
18
11
14
8
3
9
13
4
34
-2
18
3
0
37
18
3
0
37